proc algo_gestion_ast {} {	
	global table_ast
	global table_joueurs
	global seuil
	set num_soi_meme [lindex [lindex $table_joueurs 0] 0]
	
	set compt_ast 0
	foreach ast [lindex $table_ast 0] {
		#Calcule la nouvelle position et l'insère dans la table des astéroïdes
		set nouv_ast [calcul_position_ast $ast]
		
		set posX [get_asteroide_posX $nouv_ast]
		set posY [get_asteroide_posY $nouv_ast]
		if { [distance $num_soi_meme $posX $posY] > $seuil} {
			supprimer_ast [get_asteroide_numero $nouv_ast]
		} else {
			set liste_joueurs [get_asteroide_liste_joueur $nouv_ast]
			set nouv_liste_joueurs [list ]
			#Parcours de la liste des joueurs
			foreach j $liste_joueurs {
				set joueur [recherche_numero_joueur $j]
				if {[distance $joueur $posX $posY] < $seuil} {
					lappend nouv_liste_joueurs $j
				}
				set nouv_ast [lreplace $nouv_ast 8 8]
				lappend nouv_ast $nouv_liste_joueurs
			}
			set compt_joueur 0
			foreach j [lindex $table_joueurs 0] {
				if {$compt_joueur != 0} {
					if {[distance $j $posX $posY] < $seuil} {
						if {[lsearch $nouv_liste_joueurs [get_joueur_numero $j]] == -1} {
							lappend nouv_liste_joueurs [get_joueur_numero $j]
							set nouv_ast [lreplace $nouv_ast 8 8]
							lappend nouv_ast $nouv_liste_joueurs
							envoyer_ast $nouv_ast
						}
					}
				}
				incr compt_joueur
			}
			set table_ast_alt [lindex $table_ast 0]
			set table_ast [list [lreplace $table_ast_alt $compt_ast $compt_ast $nouv_ast]]
			incr compt_ast
		}
	}
}
